home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 February / Macworld (1999-02).dmg / Games World / SharewareGames / Xconq 7.2.2 / lib / lhsunit.g < prev    next >
Text File  |  1998-05-22  |  23KB  |  791 lines

  1. (game-module "lhsunit"
  2.   (blurb "Standard unit types and tables modified for the modern world")
  3.   )
  4.  
  5. ;;; New format version of the standard game.  This file is just types and
  6. ;;; tables, it is not a complete game (see "lhs" for that).
  7.  
  8. (unit-type infantry (image-name "soldiers")
  9.   (help "marches around and captures things"))
  10. (unit-type armor (image-name "tank")
  11.   (help "faster than infantry, limited to open terrain"))
  12. (unit-type fighter (image-name "fighter")
  13.   (help "interceptor to get those nasty bombers"))
  14. (unit-type bomber (image-name "4e")
  15.   (help "long range aircraft, carries infantry and bombs"))
  16. (unit-type destroyer (image-name "dd")
  17.   (help "fast, cheap, and sinks subs"))
  18. (unit-type submarine (image-name "sub")
  19.   (help "sneaks around and sinks ships"))
  20. (unit-type troop-transport (name "troop transport") (image-name "ap")
  21.   (help "carries infantry and armor across the pond"))
  22. (unit-type carrier (image-name "cv") (char "C")
  23.   (help "carries fighters and bombers around"))
  24. (unit-type battleship (image-name "bb") (char "B")
  25.   (help "the most powerful ship"))
  26. (unit-type nuclear-bomb (name "nuclear bomb") (image-name "bomb") (char "N")
  27.   (help "leveler of cities (and anything else)"))
  28. (unit-type base (image-name "airbase") (char "/")
  29.   (help "airbase plus port"))
  30. (unit-type town (image-name "town20") (char "*")
  31.   (help "smaller than a city"))
  32. (unit-type city (image-name "city20") (char "@")
  33.   (help "capital of a side"))
  34.  
  35.  
  36. ;;;
  37. ;;; new unit types for the modern world
  38. ;;;
  39. (unit-type radar (image-name "") (char "r")
  40.   (help "looks for units"))
  41. (unit-type artillery (image-name "pz-how") (char "A")
  42.   (help "blows things up at a distance"))
  43. (unit-type aaa (image-name "pz-flak") (char "F")
  44.   (help "blows up aircraft"))
  45. (unit-type engineer (image-name "engr") (char "e")
  46.   (help "builds things"))
  47. (unit-type mine (image-name "minefield") (char "m")
  48.   (help "blows things up as they pass"))
  49. (unit-type mineship (image-name "pt") (char "M")
  50.   (help "lays and clears mines at sea"))
  51.  
  52. (define i infantry)
  53. (define a armor)
  54. (define f fighter)
  55. (define b bomber)
  56. (define d destroyer)
  57. (define r radar)
  58. (define s submarine)
  59. (define t troop-transport)
  60. (define cv carrier)
  61. (define bb battleship)
  62. (define nuke nuclear-bomb)
  63. (define / base)
  64. (define * town)
  65. (define @ city)
  66. (define A artillery)
  67. (define e engineer)
  68. (define m mine)
  69. (define ms mineship)
  70.  
  71. (material-type fuel
  72.   (help "basic supply that all units need"))
  73. (material-type ammo
  74.   (help "generic supply used in combat"))
  75.  
  76. (include "stdterr")
  77.  
  78. (define ground (i a r A aaa e))
  79. (define aircraft (f b))
  80. (define ship (d s t cv bb ms))
  81. (define cities (* @))
  82. (define places (/ * @ m))
  83. (define movers (i a f b d r s t cv bb nuke A aaa e ms))
  84.  
  85. (define water (sea shallows))
  86. (define land (swamp plains forest desert mountains))
  87.  
  88. ;;; Static relationships.
  89.  
  90. (table vanishes-on
  91.   (ground water true)
  92.   (armor swamp true)
  93.   (places water (true true true false))
  94.   (ship land true)
  95.   (ship road true)
  96.   ;; Only aircraft can deal with ice.
  97.   (u* ice true)
  98.   (aircraft ice false)
  99.   )
  100.  
  101. ;; Unit-unit capacities.
  102.  
  103. (add b capacity 2)
  104. (add t capacity 8)
  105. (add cv capacity 10)
  106. (add places capacity (20 40 80 20))
  107.  
  108. (table unit-size-as-occupant
  109.   ;; Disable occupancy by default.
  110.   (u* u* 100)
  111.   ;; Bombers can carry two infantry or one tank, nuke, radar.
  112.   ((i e a r nuke A aaa) b (1 2 2 2 2 2 2))
  113.   ;; Transports can carry armor or infantry.
  114.   (ground t 1)
  115.   (aircraft cv 1)
  116.   ;; Bases can hold 10 of most unit types, but up to 20 fighters.
  117.   (u* / 2)
  118.   (fighter / 1)
  119.   ;; City types have lots of capacity for everything.
  120.   (movers cities 1)
  121.   (e m 2)
  122.   )
  123.  
  124. (table occupant-max (u* u* 99))
  125.  
  126. ;;; Unit-terrain capacities.
  127.  
  128. ;; Limit units to 16 in one cell, for the sake of playability and
  129. ;; and drawability.  Places cover the entire cell, however.
  130.   
  131. (add t* capacity 16)
  132.  
  133. (table unit-size-in-terrain
  134.   (u* t* 1)
  135.   ;; Allow aircraft to pass over towns instead of landing.
  136.   (aircraft t* 0)
  137.   (places t* (16 16 16 10))
  138.   )
  139.  
  140. ;;; Unit-material capacities.
  141.  
  142. ;;; column order is: infantry armor fighter bomber destroyer sub
  143. ;;;                  transport carrier battleship nuke base town city radar artillery aaa engineers mine mineship
  144. (table unit-storage-x
  145.   (u* fuel ( 6 10 20 30 100 100 150 500 400 100 200 500 900 10 10 10 10 0 50))
  146.   (u* ammo ( 6  4  4  6  20  10  40  80  60   0 100 200 400  0 10 10  6 1  6))
  147.   )
  148.  
  149. ;;; Vision.
  150.  
  151. ;; Towns and cities always have foreign correspondents, telephones,
  152. ;; private citizens coming and going, so their state is always
  153. ;; going to be available to any side that knows they exist.
  154.  
  155. (add cities see-always true)
  156.  
  157. ;; Cities have more powerful radar and sensing systems, and
  158. ;; so they can see out further.
  159.  
  160. (add @ vision-range 4)
  161. (add aaa acp-to-fire 1)
  162. (add aaa range 3)
  163. (add aaa vision-range 3)
  164. (add artillery acp-to-fire 1)
  165. (add artillery range 3)
  166. (add artillery vision-range 3)
  167. (add b vision-range 2)
  168. (add bb acp-to-fire 1)
  169. (add bb range 3)
  170. (add bb vision-range 3)
  171. (add cv vision-range 3)
  172. (add d acp-to-fire 1)
  173. (add d range 2)
  174. (add d vision-range 2)
  175. (add f acp-to-fire 1)
  176. (add f range 2)
  177. (add f vision-range 2)
  178. (add r vision-range 4)
  179. (add s acp-to-fire 1)
  180. (add s range 2)
  181. (add s vision-range 3)
  182.  
  183. (table see-chance-adjacent
  184.   ;; Submarines are always hard to see.
  185.   (u* s 40)
  186.   ;; submarines are not good at seeing planes
  187.   (s aircraft 20)
  188.   (s ground 40)
  189.   ;;
  190.   (d ground 40)
  191.   ;; A bomb in a truck is rather small and inconspicuous.
  192.   (u* nuke 10)
  193.   ;; mines are always hard to see.
  194.   (u* m 10)
  195.   )
  196.  
  197. ;;; Actions.
  198.  
  199. ;;; column order is: infantry armor fighter bomber destroyer sub
  200. ;;;                  transport carrier battleship nuke base town city radar artillery aaa engineer mine mineship
  201. (add u* acp-per-turn  (1 2 9 6 3 3 3 4 4 1 0 1 1 1 1 1 1 1 1))
  202.  
  203. ;;; Movement.
  204.  
  205. (add places speed 0)
  206.  
  207. ;; Don't be too picky about mp usage.
  208.  
  209. (add u* free-mp 1)
  210.  
  211. ;; Aircraft should always be able to land, and this in
  212. ;; conjunction with the entry cost will result in airplanes
  213. ;; being able to land at any time during their time, but
  214. ;; always having to wait until the next turn to take off
  215. ;; again.
  216.  
  217. (add aircraft free-mp (9 6))
  218.  
  219. (table mp-to-enter-terrain
  220.   ((cv bb s) shallows 2)
  221.   (a (swamp forest mountains) 99)
  222.   ;; No special trouble to get on a road
  223.   ;; (such as when using to cross a river).
  224.   (a road 0)
  225.   (A (swamp forest mountains) 99)
  226.   (A road 0)
  227.   (aaa (swamp forest mountains) 99)
  228.   (aaa road 0)
  229.   (ground water 99)
  230.   (ship land 99)
  231.   ;; Don't let ships use roads.  This might seem unnecessary,
  232.   ;; but consider the case of a ship in a town wanting to leave
  233.   ;; in a direction that has a road.  If the road appears to be
  234.   ;; cheaper and the ship has enough mp, it will take the road
  235.   ;; and then vanish.
  236.   (ship road 99)
  237.   (u* ice 99)
  238.   (aircraft ice 1)
  239.   )
  240.  
  241. (table mp-to-leave-terrain
  242.   ;; This is for accident prevention, in the case of a ground
  243.   ;; unit on a road bridge that doesn't quite reach land.
  244.   (ground water 99)
  245.   )
  246.  
  247. (table mp-to-traverse (a road 1))
  248.  
  249. (table material-to-move
  250.   (movers fuel 1)
  251.   (nuke fuel 0)
  252.   )
  253.  
  254. (table mp-to-enter-unit
  255.   (u* u* 1)
  256.   ; aircraft can't sortie again until next turn
  257.   ;(f u* 9)
  258.   ;(b u* 6)
  259.   ;; Some cost to land, but can still take off again in the same turn.
  260.   (f u* 2)
  261.   (b u* 2)
  262.   (ship u* 0)
  263.   (a cities 0)   ; travel quickly on surrounding roads.
  264.   )
  265.  
  266. (table consumption-per-move
  267.   (movers fuel 1)
  268.   ;; Nukes are "important", a country would never risk them running out.
  269.   (nuke fuel 0)
  270.   )
  271.  
  272. ;;; Construction.
  273.  
  274. ;; Nuclear weapons must be researched before they can be built.
  275.  
  276. (add nuke tech-max 60)
  277. (add nuke tech-to-build 60)
  278.  
  279. ;; Only cities can research nukes.
  280.  
  281. (table acp-to-research (@ nuke 1))
  282.  
  283. (table tech-per-research (@ nuke 1.00))
  284.  
  285. ;; Limit the amount of gain possible due to a concentrated effort.
  286. ;; Note that this will only have an effect in games with many cities.
  287.  
  288. (add nuke tech-per-turn-max 3)
  289.  
  290. ;; Basically, units take about as many turns to complete as their cp.
  291.  
  292. ;;; column order is: infantry armor fighter bomber destroyer sub
  293. ;;;                  transport carrier battleship nuke base town city radar artillery aaa engineer mine mineship
  294. (add u* cp (1 3 4 5 6 10 5 15 17 20 4 1 1 6 2 2 2 1 5))
  295.  
  296. (table acp-to-create
  297.   (cities movers 1)
  298.   (e / 1)
  299.   (e m 1)
  300.   (ms m 1)
  301.   )
  302.  
  303. (table cp-on-creation
  304.   (e / 1)
  305.   )
  306.  
  307. (table acp-to-build
  308.   (e / 1)
  309.   (e m 1)
  310.   (cities movers 1)
  311.   (ms m 1)
  312.   )
  313.  
  314. (table cp-per-build
  315.   (a / 2)
  316.   (e / 1)
  317.   (e m 1)
  318.   (ms m 1)
  319.   )
  320.  
  321. (table occupant-can-construct (u* u* false))
  322.  
  323. ;;; Repair.
  324.  
  325. ;; Explicit repair actions accelerate the recovery of lost hp.
  326.  
  327. (table acp-to-repair
  328.   (cities u* 1)
  329. ;  (/ u* 1)
  330.   (cv cv 1)
  331.   (bb bb 1)
  332.   (i places (1 1 1 0))
  333.   (e places (2 2 2 0))
  334.   (e u* 1)
  335.   (m u* 0)
  336.   )
  337.  
  338. (table hp-per-repair
  339.   ;; Towns and cities can repair anything.
  340.   (cities u* 1.00)
  341. ;  (/ u* 3.00)  ; what is this all about?
  342.   ;; Capital ships are equipped to do major repairs to themselves.
  343.   (cv cv 1.00)
  344.   (bb bb 1.00)
  345.   ;; cariers can repair aircraft
  346.   (cv aircraft 1.00)
  347.   ;; The army's engineers can do lots of repair work if put to the task.
  348.   (e places (2.00 5.00 5.00 0.00))
  349.   (e u* 1.00)
  350.   )
  351.  
  352. (table auto-repair
  353.   ;; Capital ships are equipped to do major repairs to themselves.
  354.   (cv cv 0.50)
  355.   (bb bb 0.50)
  356.   (cv aircraft 0.50)
  357.   (cities movers 0.50)
  358.   (e u* 1.00)
  359.   )
  360.  
  361. ;; Some types have sufficient people and redundancy to do some repair work
  362. ;; without affecting their readiness to act.
  363.  
  364. (add (cv bb /) hp-recovery 0.50)
  365. (add cities hp-recovery 1.00)
  366.  
  367. ;;; Production.
  368.  
  369. (table base-production
  370.   (ground fuel 1)
  371.   ;; This is not too realistic, but otherwise keeping tanks fueled
  372.   ;; is a major hassle.  This is supposed to be a game, not an
  373.   ;; exercise in logistics (play "empire.g" if you want that).
  374.   (a fuel 2)
  375.   (places fuel (10 20 50 0))
  376.   (places ammo (5 10 20 0))
  377.   )
  378.  
  379. (table productivity
  380.   ;; Plains are assumed to be settled and have fuel stocks.
  381.   (i (swamp desert mountains) 0)
  382.   ;; It *is* worthwhile to make players think about logistics
  383.   ;; when operating in the desert.
  384.   (a desert 0)
  385.   (/ land (0 100 50 20 20))
  386.   (* land (0 100 50 20 20))
  387.   (@ land (0 100 50 20 20))
  388.   )
  389.  
  390. (table base-consumption
  391.   ;; Note that armor does *not* have a base consumption;
  392.   ;; tanks that don't move don't need fuel.  (Infantry
  393.   ;; still needs fuel, because an infantry unit in real life
  394.   ;; has a large number of personnel, and fuel represents
  395.   ;; their general energy and food consumption.)
  396.   ((i f b) fuel (1 3 2))
  397.   (ship fuel 1)
  398.   )
  399.  
  400. (table hp-per-starve
  401.   ((i f b) fuel 1.00)
  402.   ;; Immobilized tanks eventually rust...
  403.   (armor fuel 0.05)
  404.   (ship fuel 0.10)
  405.   (places fuel (0.05 0.05 0.05 0.0))
  406.   (m ammo 0.25)
  407.   )
  408.  
  409. (table consumption-as-occupant
  410.   ;; Aircraft, radar on the ground or in a carrier just sit there.
  411.   ((f b r) fuel 0)
  412.   )
  413.  
  414. ;;; Combat.
  415.  
  416. (add u* hp-max (1 2 1 2 3 2 3 4 8 1 10 20 40 1 1 1 1 1 1))
  417.  
  418. ;; Units are generally crippled, moving at half speed,
  419. ;; at about 1/2 of hp-max, sometimes rounding up, sometimes down.
  420.  
  421. (add b  speed-damage-effect ((1 50) (2 100)))
  422. (add d  speed-damage-effect ((1 50) (2 100) (3 100)))
  423. (add s  speed-damage-effect ((1 50) (2 100)))
  424. (add t  speed-damage-effect ((1 50) (2  50) (3 100)))
  425. (add cv speed-damage-effect ((1 50) (2  50) (3 100) (4 100)))
  426. (add bb speed-damage-effect ((1 50) (4  50) (5 100) (8 100)))
  427.  
  428. ;;; The main hit table.
  429. ;;; column order is: infantry armor fighter bomber destroyer sub
  430. ;;;                  transport carrier battleship nuke base town city radar artillery aaa engineer mine mineship
  431.  
  432. (table hit-chance
  433.    (i u* ( 50  40  20  15   0   0  10  10   5  40  80  60  40  60  50  50  60  20  20))
  434.    (a u* ( 75  50  20  20  10   0  20  20  20  50  90  70  50  60  65  65  85   0  30))
  435.    (f u* ( 20  55  60  70  30   0  40  35  35  70  70  60  60  25  50  50  50   0  55))
  436.    (b u* ( 40  45  10   5  60  30  50  50  60  50  80  80  80  60  70  70  60   0  60))
  437.    (d u* (  5   5  20  15  50  80  60  20  10   0  80  70  70   5   5   5  15   0  60))
  438.    (s u* (  0   0   0   0  85  80  90  50  60   0   0   0   0   0   0   0   0   0  90))
  439.    (t u* ( 20   5   5  10  10   5  20   5   5   0   0   0   0   0   5   5  30   0  30))
  440.   (cv u* (  0   0  40  30  20  10  40  20  20   0   0   0   0   0   0   0   0   0  40))
  441.   (bb u* ( 85  60  30  20  90  10  90  90  80   0 100  90  90  50  75  75  80   0  90))
  442. (nuke u* (100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100   0 100))
  443.   (/  u* ( 10  10  20  20  20   0  30  20  20   0   0   0   0   0  15  15  20   0  30))
  444.   (*  u* ( 30  20  50  40  40   0  30  20  50   0   0   0   0   0  25  25  40   0  30))
  445.   (@  u* ( 50  40  70  60  50   0  30  20  50   0   0   0   0   0  45  45  60   0  30))
  446.   (r  u* (  0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0))
  447.    (A u* ( 85  65   0   0  15   0  10  30  40  50  95  80  70  60  80  80  95   0  40))
  448.  (aaa u* (  0   0  60  70   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0))
  449.    (e u* (  0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0  90   0))
  450.    (m u* ( 70  80   0   0  60  50  70  70  70   0   0   0   0   0   0   0   0   0   0))
  451.   (ms u* (  0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0  90   0))
  452.   )
  453. ;;; column order is: infantry armor fighter bomber destroyer sub
  454. ;;;                  transport carrier battleship nuke base town city radar artillery aaa engineer mine mineship
  455.  
  456. (table damage
  457.   (u* u* 1)
  458.   (a places (2 2 2 0))
  459.   (b ship 2)
  460.   (b s 1)
  461.   (b places (2 2 3 0))
  462.   (d s 2)
  463.   (s ship 3)
  464.   (s bb 4)
  465.   (bb u* 2)
  466.   (bb cities (3 4))
  467.   (A u* 2)
  468.   (A cities (2 2))
  469.   (m u* 3)
  470.   (aaa f 2)
  471.   (aaa b 2)
  472.   )
  473.  
  474. (table capture-chance
  475.   (i places (70 50 30 0))
  476.   (a places (90 70 50 0))
  477.   )
  478.  
  479. (table independent-capture-chance
  480.   (i places (100 80 50 0))
  481.   (a places (100 95 70 0))
  482.   )
  483.  
  484. ;; Intelligent and/or valuable units will work to preserve themselves.
  485.  
  486. (table retreat-chance
  487.   (a i 10)
  488.   (a a 20)
  489.   (f f 20)
  490.   (f b 50)
  491.   (ship cv 50)
  492.   )
  493.  
  494. ;; Attack and counterattack are completely symmetrical.
  495.  
  496. ;(table counter-strength (u* u* 100))
  497.  
  498. ;; infantry can capture cities even on water.
  499.  
  500. (table bridge (i places true))
  501.  
  502. (table protection ; actually ablation?
  503.   ;; places offer some protection to occupants
  504.   (places movers (50 50 50 0))
  505.   ;; but bases make aircraft sitting ducks, so no protection there.
  506.   (base aircraft 100)
  507.   ;; inf and armor protect the places housing them.
  508.   ;; can't make this too large or city can be
  509.   ;; invulnerable.
  510.   (i places (80 80 80 0))
  511.   (a places (60 60 60 0))
  512.   ; bases benefit more from protection.
  513.   (ground / (50 40 0 0 0 0))
  514.   )
  515.  
  516. ;; Combat requires ammo, and uses it up.
  517.  
  518. (table consumption-per-attack (u* ammo 1))
  519.  
  520. (table hit-by (u* ammo 1))
  521.  
  522. ;;; Detonation.
  523.  
  524. ;; Nukes work by detonation rather than by conventional attack actions.
  525.  
  526. (add nuke acp-to-detonate 1)
  527.  
  528. (add nuke hp-per-detonation 1)
  529.  
  530. (table detonation-damage-at (nuke u* 60))
  531.  
  532. (table detonation-damage-adjacent (nuke u* 1))
  533.  
  534. (table detonation-terrain-damage-chance
  535.   (nuke (plains forest) 100)
  536.   )
  537.  
  538. (table terrain-damaged-type
  539.   (plains desert 1)
  540.   (forest desert 1)
  541.   )
  542.  
  543. ;;; Disbanding.
  544.  
  545. ;; This does movers in one shot except battleships, which historically
  546. ;; are usually difficult to scuttle.
  547.  
  548. (add movers acp-to-disband 1)
  549. (add bb acp-to-disband 2)
  550.  
  551. (add movers hp-per-disband 4)
  552.  
  553. ;; Takes a while to dismantle a base.
  554.  
  555. (add / hp-per-disband 2)
  556.  
  557. ;;; Changing sides.
  558.  
  559. (add u* acp-to-change-side 1)
  560. (add i acp-to-change-side 0)
  561.  
  562. (add i possible-sides '(not "independent"))
  563.  
  564. ;;; Automatic things.
  565.  
  566. ;; Economy.
  567.  
  568. (table out-length
  569.   ;; Net consumers of supply should never give any up automatically.
  570.   ((i a b f nuke m) m* -1)
  571.   ;; Cities and towns can share things around.
  572.   (cities m* 1)
  573.   (e m* 1)
  574.   )
  575.  
  576. (table in-length
  577.   ;; Supply to ground units can go a couple hexes away.
  578.   (ground m* 3)
  579.   ;; Cities and bases can get their supplies from some distance away.
  580.   (/ m* 6)
  581.   (cities m* 12)
  582.   (m m* 1)
  583.   )
  584.  
  585. ;;; Scoring.
  586.  
  587. ;; Most units aren't worth much, but ground units can capture
  588. ;; cities, carriers and battleships are powerful, and nukes are
  589. ;; devastating, especially when stockpiled.
  590.  
  591. (add u* point-value 0)
  592. (add (a A aaa f b s cv bb) point-value (1 1 1 2 2 2 3 3))
  593. (add nuke point-value 5)
  594. (add cities point-value (5 25))
  595.  
  596. ;;; Texts.
  597.  
  598. (set action-notices '(
  599.   ((disband infantry self done) (actor " goes home"))
  600.   ((disband u* bomb done) (actor " dismantles " actee))
  601.   ((disband u* u* done) (actee " disbands"))
  602.   ))
  603.  
  604. (set action-narratives '(
  605.   ((disband infantry self done) (actor " went home"))
  606.   ((disband u* bomb done) (actor " dismantled " actee))
  607.   ((disband u* u* done) (actee " disbanded"))
  608.   ))
  609.  
  610. (set event-notices '(
  611.   ((unit-starved fighter) (0 " runs out of fuel and crashes!"))
  612.   ((unit-starved bomber) (0 " runs out of fuel and crashes!"))
  613.   ))
  614.  
  615. (set event-narratives '(
  616.   ((unit-starved fighter) (0 " ran out of fuel and crashed"))
  617.   ((unit-starved bomber) (0 " ran out of fuel and crashed"))
  618.   ))
  619.  
  620. ;;; Initial setup.
  621.  
  622. (add cities start-with (8 3))
  623. (set country-radius-min 6)
  624. (set country-separation-min 25)
  625. (set country-separation-max 48)
  626. ;; Try to get countries to be on the coast.
  627. (add (sea plains) country-terrain-min (1 4))
  628.  
  629. (table favored-terrain
  630.   (u* t* 0)
  631.   (@ plains 100)
  632.   (* land 20)
  633.   (* plains 40)
  634.   )
  635.  
  636. (table independent-density (town plains 100))
  637.  
  638. (add land country-people-chance 90)
  639. (add plains country-people-chance 100)
  640.  
  641. (add land independent-people-chance 50)
  642.  
  643. (table road-chance
  644.   (city (town city) (80 100))
  645.   (town (town city) ( 2   5))
  646.   )
  647.  
  648. (add (town city) road-to-edge-chance 100)
  649.  
  650. (set edge-road-density 100)
  651.  
  652. ;; Nearly all towns should be connected by road to
  653. ;; somewhere else.
  654.  
  655. (add town spur-chance 90)
  656. (add town spur-range 2)
  657.  
  658. ;; A game's starting units will be full by default.
  659.  
  660. (table unit-initial-supply
  661.   (u* m* 9999)
  662.   (m m* 0)
  663.   )
  664.  
  665. ;; Default doctrine.
  666.  
  667. (doctrine default-doctrine
  668.   (construction-run (u* 1))
  669.   (rearm-percent 40)
  670.   )
  671.  
  672. (doctrine place-doctrine
  673.   (construction-run (u* 99) ((carrier battleship) 3) (nuke 1)))
  674.  
  675. (side-defaults
  676.   (default-doctrine default-doctrine)
  677.   (doctrines (places place-doctrine))
  678.   )
  679.  
  680. (game-module (notes (
  681.   "This game is modified from the standard one in Xconq.  It"
  682.   "is an attempt to bring the 1945 game up to post-cold-war"
  683.   "military technology. The main changes are that everything"
  684.   "is more destructive, ranges are greater, and submarines and"
  685.   "aircraft are much more powerful."
  686.   )))
  687.  
  688. (add i notes '(
  689.   "The infantry army is the slowest of units, but it can go almost"
  690.   "anywhere.  It is also quick to produce.  Infantry is the staple of"
  691.   "campaigns - no special features, but quick and cheep."
  692.   ))
  693. (add a notes '(
  694.   "The armor army is highly mobile and hits hard.  Unfortunately,"
  695.   "it is limited to operating in open terrain - plains and desert.  It also"
  696.   "takes longer to produce.  Armor can last twice as long in the  "
  697.   "desert as infantry.  Both armor and infantry can"
  698.   "assault and capture cities; they are the only units that can do so."
  699.   ))
  700. (add f notes '(
  701.   "A fighter is a squadron or wing of high-speed armed aircraft."
  702.   "Their fuel supply can be gotten only at units, towns, and bases, so they"
  703.   "must continually be taking off and landing.  Fighters are effective"
  704.   "against ground units and ships, and they eat bombers for lunch.  Fighters"
  705.   "are very good for reconnaisance - important when you can't always"
  706.   "see the enemy moving!"
  707.   ))
  708. (add b notes '(
  709.   "Bombers are very powerful, since they can seriously damage"
  710.   "or even flatten cities.  Loss rate in such activities is high, so they're"
  711.   "not a shortcut to victory!"
  712.   "Bombers can carry two infantry or an armor, which is very useful for raids."
  713.   ))
  714. (add d notes '(
  715.   "Destroyers are fast small ships for both exploration and"
  716.   "anti-submarine activities."
  717.   ))
  718. (add s notes '(
  719.   "The favorite food of submarines is of course merchant shipping"
  720.   "and troopships, and they can sink troop transports with one blow."
  721.   "Subs are also invisible, but vulnerable to destroyers and aircraft."
  722.   ))
  723. (add t notes '(
  724.   "This is how ground units get across the sea.  They can"
  725.   "defend themselves against ships and aircraft, but are basically vulnerable."
  726.   "They're not very fast either."
  727.   ))
  728. (add cv notes '(
  729.   "Compensates for the limited range of fighters and bombers by providing"
  730.   "a portable airport.  Carriers themselves are sitting ducks, particularly"
  731.   "with respect to aircraft.  Fighter patrols are mandatory."
  732.   ))
  733. (add bb notes '(
  734.   "This may be the most controversial change in the game. As a reflection"
  735.   "of modern targeting systems, the effective range of battleships is now"
  736.   "longer, so they can destroy a city from over the horizon. They are"
  737.   "very powerful, but can still be destroyed by aircraft and subs."
  738.   ))
  739. (add nuke notes '(
  740.   "Atomic bombs.  The Final Solution; but they are not easy to use.  A bomb"
  741.   "takes a long time to produce, moves very slowly by itself, and is easily"
  742.   "destroyed by other units. The plus side is instant destruction for any unit"
  743.   "of any size!  Bombs are imagined to be transported by a team of scientists,"
  744.   "and can go on any sort of terrain without running out of supplies."
  745.   ))
  746. (add / notes '(
  747.   "To simplify matters, this can serve as a camp, airbase, and port."
  748.   "Bases cannot build units, although they can repair some damage."
  749.   ))
  750. (add * notes '(
  751.   "Towns are the staple of territory.  They can build, repair, produce"
  752.   "fuel and ammo, and serve as a safe haven for quite a few units."
  753.   ))
  754. (add @ notes '(
  755.   "Cities are very large, powerful, and well defended.  They are"
  756.   "basically capital cities, or something in a comparable range.  (New York"
  757.   "and San Francisco are cities, Salt Lake City and San Antonio are towns."
  758.   "Yeah, San Antonio has a lot of people, but it's still insignificant,"
  759.   "nyah nyah.)  A city is worth five towns, point-wise."
  760.   ))
  761. (add r notes '(
  762.   "radar is a passive unit that sees a great distance. While fragile and"
  763.   "without any attacking abilities, they can still play a role, especially"
  764.   "if loaded onto a bomber to produce an AWACS."
  765.   ))
  766. (add A notes '(
  767.   "Artillery are units of mobile guns, more powerful but much more fragile"
  768.   "than tanks. By themselves, they can not capture anything, but they can"
  769.   "destroy almost any ground or sea unit they can see."
  770.   ))
  771. (add aaa notes '(
  772.   "Anti-aircraft artillery are fragile, but can chew up fighters and bombers"
  773.   ))
  774. (add e notes '(
  775.   "Engineer units are dull but essential. While they are useless in a fight,"
  776.   "they can build bases, repair damaged units, and lay or remove mine fields."
  777.   ))
  778. (add m notes '(
  779.   "Mines just sit there until someone comes by, at which point they blow up."
  780.   "While passive and unglamorous, they can rip an attack to shreds if used"
  781.   "in a good location."
  782.   ))
  783. (add ms notes '(
  784.   "Minesweepers can lay and clear naval mines. If there is a narrow strait,"
  785.   "a few mines can destroy an entire armada."
  786.   ))
  787.  
  788. (game-module (design-notes (
  789.   "Full transports should move more slowly."
  790.   )))
  791.